home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / misc / trashmngr095.lha / TrashManager0.95 / Install / TrashManager-Install < prev   
Encoding:
Text File  |  1995-02-03  |  6.3 KB  |  251 lines
  1. ;$VER: TrashManager Install 1.01 (24.1.95)
  2. ;© 1995 Thomas Kessler
  3.  
  4. (set #install-version "1.01")
  5. (set old-level @user-level)
  6.  
  7. ; *** english (default) ***
  8. (set #na "\n Read the documentation for help.")
  9. (set #superior "A superior App-Icon Trashcan program.\n\n")
  10. (set #rights "All rights reserved.\n")
  11. (set #install "Install/Update TrashManager")
  12. (set #remove "Remove TrashManager")
  13. (set #is-installed
  14.     (cat "is now installed.\n\n"
  15.         "Please reboot now or double-click the\n"
  16.         "TrashManager-icon in \"SYS:WBStartup\"\n"
  17.         "to start the program."
  18.     )
  19. )
  20. (set #is-removed
  21.     (cat "is now removed.\n\n"
  22.         "Please reboot now or select \"Quit\"\n"
  23.         "in the TrashManager-menu to stop the program."
  24.     )
  25. )
  26.  
  27. ; *** german ***
  28. (if (= "deutsch" @language)
  29.     (
  30.         (set #na "\n Lesen Sie bitte die Anleitung.")
  31.         (set #superior "Das bessere App-Icon Trashcan Programm.\n\n")
  32.         (set #rights "Alle Rechte vorbehalten.\n")
  33.         (set #install "Installieren/Aktualisieren")
  34.         (set #remove "Entfernen")
  35.         (set #is-installed
  36.             (cat "wurde installiert.\n\n"
  37.                 "Bitte machen Sie jetzt einen Reset oder starten\n"
  38.                 "Sie das Programm über das TrashManager-Icon im\n"
  39.                 "Verzeichnis \"SYS:WBStartup\".\n"
  40.             )
  41.         )
  42.         (set #is-removed
  43.             (cat "wurde entfernt.\n\n"
  44.                 "Bitte machen Sie jetzt einen Reset oder\n"
  45.                 "wählen Sie \"Beenden\" im TrashManager-Menü\n"
  46.                 "um das Programm zu stoppen."
  47.             )
  48.         )
  49.     )
  50. )
  51. ; *** other language ***
  52. (if (= "français" @language)
  53.   (
  54.     (set #na "\n Lisez les documentations pour de l'aide.")
  55.     (set #superior "Une programme poubelle App-Icòne supérieur.\n\n")
  56.     (set #rights "Toutes droits réservés.\n")
  57.     (set #install "Installer/Placer à neieau supérieur TrashManager")
  58.     (set #remove "Enlever TrashManager")
  59.     (set #is-installed
  60.       (cat "est maintenant installer.\n\n"
  61.         "S'il vous plait, fait repartir l'ordinateur or double-click the\n"
  62.         "ou TrashManager-icon in \"SYS:WBStartup\"\n"
  63.         "to start the program."
  64.       )
  65.     )
  66.     (set #is-removed
  67.       (cat "is now removed.\n\n"
  68.         "Please reboot now or select \"Quit\"\n"
  69.         "in the TrashManager-menu to stop the program."
  70.       )
  71.     )
  72.   )
  73. )
  74. ; *** finnish (suomi)
  75. (if (= "suomi" @language)
  76.   (
  77.     (set #na "\n Lue dokumentaatio!")
  78.     (set #superior "Ylivoimainen roskakori-ohjelma.\n\n")
  79.     (set #rights "Kaikki oikeudet pidätetään.\n")
  80.     (set #install "Asenna/Päivitä TrashManager.")
  81.     (set #remove "Poista TrashManager")
  82.     (set #is-installed
  83.       (cat "on nyt asennettu.\n\n"
  84.         "Käynnistä kone uudelleen tai kaksois-\n"
  85.         "näpäytä TrashManager-ikonia \"SYS:WBStartup\"\n"
  86.         "hakemistossa käynnistääksesi ohjelman."
  87.       )
  88.     )
  89.     (set #is-removed
  90.       (cat "on nyt poistettu.\n\n"
  91.         "Käynnistä kone uudelleen tai valitse \"Lopeta\"\n"
  92.         "TrashManagerin valikosta sammuttaaksesi ohjelman."
  93.       )
  94.     )
  95.   )
  96. )
  97. (if (= "italiano" @language)
  98.   (
  99.     (set #na "\n Leggi la documentazione per l'aiuto.")
  100.     (set #superior "Un superbo programma (App-Icon) per la gestione del Trashcan.\n\n")
  101.     (set #rights "Tutti i diritti riservati.\n")
  102.     (set #install "Installa/Aggiorna TrashManager")
  103.     (set #remove "Rimuovi TrashManager")
  104.     (set #is-installed
  105.       (cat "h stato installato.\n\n"
  106.          "Resetta ora o fai doppio click sull'\n"
  107.          "icona di TrashManager in \"SYS:WBStartup\"\n"
  108.          "per far partire il programma."
  109.       )
  110.     )
  111.     (set #is-removed
  112.       (cat "h stato rimosso.\n\n"
  113.         "Resetta ora o seleziona \"Quit\"\n"
  114.         "dal menu di TrashManager per uscire dal programma."
  115.       )
  116.     )
  117.   )
  118. )
  119.  
  120. ; *** main ***
  121. (run (prompt "Version") (help    #na) "C:Version /TrashManager FULL >ENV:TrashManager.Version")
  122. (set #TrashManager-version-full (getenv "TrashManager.Version"))
  123. (delete (prompt "Cleanup") (help    #na) "ENV:TrashManager.Version"    (optional force))
  124.  
  125. (user 2)
  126. (set action
  127.     (askchoice
  128.         (prompt "\n"#TrashManager-version-full
  129.             #superior
  130.             "TrashManager © Copyright 1995 John Muir\n"
  131.             #rights"\n"
  132.             "Install-Script "#install-version" © 1995 Thomas Kessler\n"
  133.             #rights)
  134.         (help #na)
  135.         (choices #install #remove)
  136.     )
  137. )
  138. (complete 10)
  139. (user old-level)
  140. (if (= action 0)
  141.     (
  142.         (copylib
  143.             (prompt "Install")
  144.             (help #na)
  145.             (source "/TrashManager")
  146.             (dest "SYS:WBStartup")
  147.         )
  148.         (complete 40)
  149.         (copyfiles
  150.             (prompt "Install")
  151.             (help #na)
  152.             (source "/TrashManager.info")
  153.             (dest "SYS:WBStartup")
  154.         )
  155.         (complete 60)
  156.  
  157.         ; *** here they go, the catalogs ***
  158.  
  159.         ; *** french ***
  160.         (if (exists "LOCALE:catalogs/français")
  161.             (copylib
  162.                 (prompt "Install")
  163.                 (help #na)
  164.                 (source "/Catalogs/français/TrashManager.catalog")
  165.                 (dest "LOCALE:catalogs/français")
  166.             )
  167.         )
  168.         ; *** german ***
  169.         (if (exists "LOCALE:catalogs/deutsch")
  170.             (copylib
  171.                 (prompt "Install")
  172.                 (help #na)
  173.                 (source "/Catalogs/deutsch/TrashManager.catalog")
  174.                 (dest "LOCALE:catalogs/deutsch")
  175.             )
  176.         )
  177.         ; add other catalogs exactly like this:
  178.         ; *** suomi *** Finnish
  179.         (if (exists "LOCALE:catalogs/suomi")
  180.             (copylib
  181.                 (prompt "Install")
  182.                 (help #na)
  183.                 (source "/Catalogs/suomi/TrashManager.catalog")
  184.                 (dest "LOCALE:catalogs/suomi")
  185.             )
  186.         )
  187.         ; *** italian ***
  188.         (if (exists "LOCALE:catalogs/italiano")
  189.             (copylib
  190.                 (prompt "Install")
  191.                 (help #na)
  192.                 (source "/Catalogs/italiano/TrashManager.catalog")
  193.                 (dest "LOCALE:catalogs/italiano")
  194.             )
  195.         )
  196.  
  197. ;        ; add other catalogs exactly like this:
  198. ;        ; *** xxx ***
  199. ;        (if (exists "LOCALE:catalogs/xxx")
  200. ;            (copylib
  201. ;                (prompt "Install")
  202. ;                (help #na)
  203. ;                (source "/Catalogs/xxx/TrashManager.catalog")
  204. ;                (dest "LOCALE:catalogs/xxx")
  205. ;            )
  206. ;        )
  207.  
  208.         (complete 90)     ;this was (complete 100) in old skript
  209.         (user 2)
  210.         (protect "L:WBStart-Handler" "+wd")    ; deprotect...
  211.         (copylib
  212.             (prompt "\nWBStart-Handler ) Stefan Becker\n")
  213.             (help #na)
  214.             (source "/L/WBStart-Handler")
  215.             (dest "L:")
  216.             (confirm)
  217.         )
  218.  
  219.         (complete 100)
  220.         (message    "\n\n\n"#TrashManager-version-full #is-installed)
  221.         (user old-level)
  222.     )
  223.     (
  224.         (delete
  225.             (prompt "Remove")
  226.             (help    #na)
  227.             "SYS:WBStartup/TrashManager"
  228.             (optional force)
  229.         )
  230.         (complete 40)
  231.         (delete
  232.             (prompt "Remove")
  233.             (help    #na)
  234.             "SYS:WBStartup/TrashManager.info"
  235.             (optional force)
  236.         )
  237.         (complete 60)
  238.         (run
  239.             (prompt "Remove")
  240.             (help    #na)
  241.             "C:Delete >NIL: LOCALE:catalogs/#?/TrashManager.catalog FORCE"
  242.         )
  243.         (complete 100)
  244.         (user 2)
  245.         (message    "\n\n\n"#TrashManager-version-full #is-removed)
  246.         (user old-level)
  247.     )
  248. )
  249. (exit (quiet))
  250. (welcome "")
  251.